home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / DEGREE.dxr / 00111.ls < prev    next >
Encoding:
Text File  |  1998-07-22  |  614 b   |  23 lines
  1. on keyUp
  2.   if (the key = ENTER) or (the key = RETURN) or (the keyCode = 76) then
  3.     if (value(field "Degrees") <= 720) and (value(field "Degrees") >= -720) then
  4.       put value(field "Degrees") into field "Degrees"
  5.       go("Sc5a")
  6.     else
  7.       if value(field "Degrees") < -720 then
  8.         put "-720" into field "Degrees"
  9.         put value(field "Degrees") into field "Degrees"
  10.         go("Sc5a")
  11.       else
  12.         put "720" into field "Degrees"
  13.         put value(field "Degrees") into field "Degrees"
  14.         go("Sc5a")
  15.       end if
  16.     end if
  17.   end if
  18. end
  19.  
  20. on endSprite me
  21.   put 75 into field "Degrees"
  22. end
  23.